Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim i As Integer

        For i = 0 To Me.CheckedListBox1.CheckedItems.Count - 1
            Me.Label1.Text &= Me.CheckedListBox1.CheckedItems(i).ToString()
        Next


    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.CheckedListBox1.Items.Add("name1", False)
        Me.CheckedListBox1.Items.Add("name2", False)
        Me.CheckedListBox1.Items.Add("name3", False)
        Me.CheckedListBox1.Items.Add("name4", False)
        Me.CheckedListBox1.Items.Add("name5", False)
    End Sub
End Class